home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / icon tools / deft ii / arexx / deftii_test.rexx next >
OS/2 REXX Batch file  |  1996-04-07  |  870b  |  51 lines
  1. /*
  2. ** This script replaces if needed (in fact according
  3. ** to the user preferences) the icon default tools
  4. ** in RAM: and SD0:, WHITHOUT changing the user prefe-
  5. ** rences.
  6. ** It's intended to be used for temporary storage
  7. ** places (like RAM: and SD0:) whithout making the
  8. ** user touch his settings.
  9. */
  10.  
  11. options results
  12. address 'DEFT_II.1'
  13.  
  14. 'number_paths'
  15.  
  16. number_paths = result
  17.  
  18. DO i = 1 TO number_paths
  19.  
  20.     'get_path 0'
  21.     path.i = result
  22.     'delete_path 0'
  23.  
  24. END
  25.  
  26.     /*
  27.     ** Change these 2 lines to suit your needs, ie put
  28.     ** here some lines like :
  29.     ** 'add_path VOL:'
  30.     ** where VOL: is one of your temporary storage places.
  31.     */
  32. 'add_path RAM:'
  33. 'add_path SD0:'
  34.  
  35. 'go'
  36.  
  37.     /*
  38.     ** Put here as many 'delete_path 0' lines as you have
  39.     ** put 'add_path VOL:' lines above.
  40.     */
  41. 'delete_path 0'
  42. 'delete_path 0'
  43.  
  44. DO i = 1 TO number_paths
  45.  
  46.     'add_path' path.i
  47.  
  48. END
  49.  
  50. 'loose_modifications'
  51.